home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / TurboCalc / English / Install TurboCalc < prev    next >
Text File  |  1998-01-15  |  4KB  |  152 lines
  1.  
  2. ; ---------------------------------------------------------------------
  3. ;
  4. ; $VER: TurboCalc Installer Script 1.95 (29.08.95)
  5. ;
  6. ; Script to install TurboCalc (english version)
  7. ;
  8. ; ---------------------------------------------------------------------
  9.  
  10. (if (<> @language "english")
  11.  ((if (<> @language "deutsch")
  12.    (set @language "english")
  13.   )
  14.  )
  15. )
  16.  
  17. ; ---------------------------------------------------------------------
  18. ;
  19. ;   STRINGS (German)
  20. ;
  21. ; ---------------------------------------------------------------------
  22.  
  23. (if (= @language "deutsch")
  24.  (
  25.   (set #AskDestDir
  26.    (cat "Bitte wählen Sie das Verzeichnis, in dem TurboCalc "
  27.         "installiert werden soll. "
  28.         "Es wird automatisch ein neues Verzeichnis 'TurboCalc' "
  29.         "für das Programm und die Daten angelegt." )
  30.   )
  31.  
  32.   (set #AskDestDirHelp
  33.    (cat "Für die Installation werden auf dem Ziellaufwerk mindestens "
  34.         "1,5 Mbyte freier Speicherplatz benötigt.\n\n"
  35.         "Das Installationsprogramm erstellt in dem ausgewählten "
  36.         "Pfad ein neues Verzeichnis 'TurboCalc'. Alle Dateien "
  37.         "werden in dieses Verzeichnis kopiert.\n\n"
  38.         "Sie können nach der Installation dem Verzeichnis natürlich "
  39.         "einen anderen Namen geben." )
  40.   )
  41.  
  42.   (set #HelpDir
  43.    (cat "Hilfe" )
  44.   )
  45.  
  46.   (set #InsertDisk2
  47.    (cat "Bitte legen Sie die Diskette 2: 'TurboCalcHELP' ein" )
  48.   )
  49.  
  50.   (set #InsertDisk2Help
  51.    (cat "Das Installationsprogramm kopiert nun die Dateien "
  52.         "des Handbuchs und der Onlinehilfe in das Zielverzeichnis" )
  53.   )
  54.  )
  55. )
  56.  
  57. ; ---------------------------------------------------------------------
  58. ;
  59. ;   STRINGS (English)
  60. ;
  61. ; ---------------------------------------------------------------------
  62.  
  63. (if (= @language "english")
  64.  (
  65.   (set #AskDestDir
  66.    (cat "Please choose the destination directory for the TurboCalc "
  67.         "software package. "
  68.         "A new directory named 'TurboCalc' will be created automatically." )
  69.   )
  70.  
  71.   (set #AskDestDirHelp
  72.    (cat "To install TurboCalc, you will need at least 1.5 Mbyte "
  73.         "on the destination device.\n\n"
  74.         "The Installer tool will automatically create a new directory "
  75.         "'TurboCalc' in the selected path. All files will be copied to "
  76.         "this directory.\n\n"
  77.         "if you wish, you can rename the directory after the installation." )
  78.   )
  79.  
  80.   (set #HelpDir
  81.    (cat "Help" )
  82.   )
  83.  
  84.   (set #InsertDisk2
  85.    (cat "Please insert now Disk #2: 'TurboCalcHELP'" )
  86.   )
  87.  
  88.   (set #InsertDisk2Help
  89.    (cat "The Installer tool will now copy the manual and online help "
  90.         "files to the selected destination" )
  91.   )
  92.  )
  93. )
  94.  
  95. ; ---------------------------------------------------------------------
  96. ;
  97. ;   INSTALLATION SCRIPT - BEGIN
  98. ;
  99. ; ---------------------------------------------------------------------
  100.  
  101. (set DestDir
  102.  (askdir
  103.   (prompt #AskDestDir )
  104.   (help #AskDestDirHelp )
  105.   (default "Work:")
  106.  )
  107. )
  108.  
  109. (set RealDest (tackon DestDir "TurboCalc"))
  110.  
  111. (set RealDest_Help (tackon RealDest #HelpDir))
  112.  
  113. (if (= (exists RealDest) 0)
  114.  (makedir RealDest (infos))
  115. )
  116.  
  117. (complete 4)
  118.  
  119. (copyfiles
  120.  (source "AMINET23:TurboCalc/English/TurboCalc")
  121.  (dest RealDest)
  122.  (infos) (all)
  123. )
  124.  
  125. (complete 50)
  126.  
  127. (copyfiles
  128.  (source "AMINET23:TurboCalc/English")
  129.  (dest RealDest_Help)
  130.  (pattern "#?.guide#?")
  131.  (infos)
  132. )
  133.  
  134. (complete 80)
  135.  
  136. (copyfiles
  137.  (source "AMINET23:TurboCalc/English")
  138.  (dest RealDest_Help)
  139.  (pattern "programmer#?")
  140.  (infos)
  141. )
  142.  
  143. (set @default-dest RealDest)
  144.  
  145. (complete 100)
  146.  
  147. ; ---------------------------------------------------------------------
  148. ;
  149. ;   INSTALLATION SCRIPT - END
  150. ;
  151. ; ---------------------------------------------------------------------
  152.